<%
function Htmlcode(byref content)
	Dim Str:Str=content
	If Not IsNull(Str) Then
		Str = Replace(Str, "&", "&amp;")
		Str = Replace(Str, ">", "&gt;")
		Str = Replace(Str, "<", "&lt;")
		Str = Replace(Str, CHR(32), "&nbsp;")
	    Str = Replace(Str, CHR(9), "&nbsp;&nbsp;&nbsp;&nbsp;")
		Str = Replace(Str, CHR(9), "&#160;&#160;&#160;&#160;")
		Str = Replace(Str, CHR(34),"&quot;")
		Str = Replace(Str, CHR(39),"&#39;")
		Str = Replace(Str, CHR(13), "")
		Str = Replace(Str, CHR(10), "<br>")
		Htmlcode = Str
	End If
end function

function bbcode(byref strContent)

		Dim strSmile,picurl,ImgName,errorimg
		strSmile = 1 '1表示笑脸转
		ImgName = "face"
		picurl = BaseURI & "images/"
		errorimg ="no.gif"
		strContent=Htmlcode(strContent)
		
		dim re
		Set re=new RegExp
		re.IgnoreCase =true
		re.Global=True

		re.Pattern="(\[IMG\])(.*?)(\[\/IMG\])"
		strContent=re.Replace(strContent,"<a href="& BaseURI  &"$2 target=_blank><img SRC="""& BaseURI  &"$2"" border=0 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333"" onerror=this.src='"&picurl&errorimg&"'  galleryImg=no></a>")

 
		re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.*?)\[\/DIR]"
		strContent=re.Replace(strContent,"<object classid=clsid:166B1BCA-3F9C-11CF-8075-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=7,0,2,0 width=$1 height=$2><param name=src value=$3><embed src=$3 pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2></embed></object>")
		re.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.*?)\[\/QT]"
		strContent=re.Replace(strContent,"<embed src=$3 width=$1 height=$2 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>")
		re.Pattern="\[MP=*([0-9]*),*([0-9]*)\](.*?)\[\/MP]"
		strContent=re.Replace(strContent,"<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=$1 height=$2 ><param name=ShowStatusBar value=-1><param name=Filename value=$3><embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=$3  width=$1 height=$2></embed></object>")
		re.Pattern="\[RM=*([0-9]*),*([0-9]*)\](.*?)\[\/RM]"
		strContent=re.Replace(strContent,"<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=$1 height=$2><PARAM NAME=SRC VALUE=$3><PARAM NAME=CONSOLE VALUE=Clip1><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=$1><PARAM NAME=SRC VALUE=$3><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>")

		re.Pattern="(\[FLASH\])(.*?)(\[\/FLASH\])"
		strContent= re.Replace(strContent,"<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400><PARAM NAME=movie VALUE=""$2""><PARAM NAME=quality VALUE=high><embed src=""$2"" quality=high pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width=500 height=400>$2</embed></OBJECT>")
		re.Pattern="(\[FLASH=*([0-9]*),*([0-9]*)\])(.*?)(\[\/FLASH\])"
		strContent= re.Replace(strContent,"<a href=""$4"" TARGET=_blank><IMG SRC=pic/swf.gif border=0 alt=点击开新窗口欣赏该FLASH动画!> [全屏欣赏]</a><br><br><OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=$2 height=$3><PARAM NAME=movie VALUE=""$4""><PARAM NAME=quality VALUE=high><param name=menu value=false><embed src=""$4"" quality=high menu=false pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width=$2 height=$3>$4</embed></OBJECT>")

		re.Pattern="(\[UPLOAD=gif\])(.*?)(\[\/UPLOAD\])"
		strContent= re.Replace(strContent,"<br><IMG SRC="""&picurl&"gif.gif"" border=0>此主题相关图片如下：<br><A HREF=""$2"" TARGET=_blank><IMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></A>")


		re.Pattern="(\[UPLOAD=jpg\])(.*?)(\[\/UPLOAD\])"
		strContent= re.Replace(strContent,"<br><IMG SRC="""&picurl&"jpg.gif"" border=0>此主题相关图片如下：<br><A HREF=""$2"" TARGET=_blank><IMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></A>")
		re.Pattern="(\[UPLOAD=bmp\])(.*?)(\[\/UPLOAD\])"
		strContent= re.Replace(strContent,"<br><IMG SRC="""&picurl&"bmp.gif"" border=0>此主题相关图片如下：<br><A HREF=""$2"" TARGET=_blank><IMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></A>")

		re.Pattern="(\[down=(.[^\[]*)\])(.*?)(\[\/down\])"
		strContent= re.Replace(strContent,"<br><a href=""$2"">点击浏览该文件</a>")

		re.Pattern="(\[URL\])(.*?)(\[\/URL\])"
		strContent= re.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$2</A>")
		re.Pattern="(\[URL=(.[^\[]*)\])(.*?)(\[\/URL\])"
		strContent= re.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$3</A>")

		re.Pattern="(\[EMAIL\])(.*?)(\[\/EMAIL\])"
		strContent= re.Replace(strContent,"<img align=absmiddle src=pic/email1.gif><A HREF=""mailto:$2"">$2</A>")
		re.Pattern="(\[EMAIL=(.[^\[]*)\])(.*?)(\[\/EMAIL\])"
		strContent= re.Replace(strContent,"<img align=absmiddle src=pic/email1.gif><A HREF=""mailto:$2"" TARGET=_blank>$3</A>")

		re.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
		strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
		re.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
		strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
		re.Pattern = "(<BR>|<P>)(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)(<BR>|<P>)"
		strContent = re.Replace(strContent,"$1<a target=_blank href=$2>$2</a>$3")
		re.Pattern = "^(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
		strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
		re.Pattern = "(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
		strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
		re.Pattern = "[^>=""](ftp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
		strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
		re.Pattern = "^(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
		strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
		re.Pattern = "(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
		strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
		re.Pattern = "[^>=""](rtsp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
		strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
		re.Pattern = "^(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
		strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
		re.Pattern = "(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
		strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
		re.Pattern = "[^>=""](mms://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
		strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")

		if strSmile = 1 then                       '笑脸转换
		re.Pattern="(\["&ImgName&"(.*?)\])"
		strContent=re.Replace(strContent,"<img src=" & picurl & ImgName & "$2.gif border=0 align=middle>")
		end if


		re.Pattern="(\[color=(.[^\[]*)\])(.*?)(\[\/color\])"
		strContent=re.Replace(strContent,"<font color=$2>$3</font>")
		re.Pattern="(\[align=(.[^\[]*)\])(.*?)(\[\/align\])"
		strContent=re.Replace(strContent,"<div align=$2>$3</div>")
	'循环转换quote
		re.Pattern="(\[QUOTE\])(.*?)(\[\/QUOTE\])"
		while (instr(strContent,"[quote]")>0 and instr(strContent,"[/quote]")>0)
			strContent=re.Replace(strContent,"<blockquote>引用:<hr><span>$2</span><hr></blockquote>")
		wend
		re.Pattern="(\[fly\])(.*?)(\[\/fly\])"
		strContent=re.Replace(strContent,"<marquee width=90% behavior=alternate scrollamount=3>$2</marquee>")
		re.Pattern="(\[move\])(.*?)(\[\/move\])"
		strContent=re.Replace(strContent,"<MARQUEE scrollamount=3>$2</marquee>")	
		re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*?)\[\/GLOW]"
		strContent=re.Replace(strContent,"<table width=$1 style=""filter:glow(color=$2, strength=$3)"">$4</table>")
		re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*?)\[\/SHADOW]"
		strContent=re.Replace(strContent,"<table width=$1 style=""filter:shadow(color=$2, strength=$3)"">$4</table>")

		re.Pattern="(\[i\])(.*?)(\[\/i\])"
		strContent=re.Replace(strContent,"<i>$2</i>")
		re.Pattern="(\[u\])(.*?)(\[\/u\])"
		strContent=re.Replace(strContent,"<u>$2</u>")
		re.Pattern="(\[b\])(.*?)(\[\/b\])"
		strContent=re.Replace(strContent,"<b>$2</b>")

		re.Pattern="(\[size=1\])(.*?)(\[\/size\])"
		strContent=re.Replace(strContent,"<font size=1>$2</font>")
		re.Pattern="(\[size=2\])(.*?)(\[\/size\])"
		strContent=re.Replace(strContent,"<font size=2>$2</font>")
		re.Pattern="(\[size=3\])(.*?)(\[\/size\])"
		strContent=re.Replace(strContent,"<font size=5>$2</font>")
		re.Pattern="(\[size=4\])(.*?)(\[\/size\])"
		strContent=re.Replace(strContent,"<font size=6>$2</font>")
		
		re.Pattern="\[size=([+|-]?[0-7])\](.*?)(\[\/size\])"
		strContent=re.Replace(strContent,"<font size=$1>$2</font>")

		re.Pattern="(\[center\])(.*?)(\[\/center\])"
		strContent=re.Replace(strContent,"<center>$2</center>")

		re.Pattern="(\[table=(#*[a-z0-9]*),(#*[a-z0-9]*),(#*[a-z0-9]*)\])(.*?)(\[\/table\])"
		strContent=re.Replace(strContent,"<table border=0 cellpadding=5 cellspacing=1 bgcolor=$2><tr><td bgcolor=$3><font color=$4>$5</font></td></tr></table>")

	'[HTML/] start
		re.Pattern="(\[code])(.*?)(\[\/code])"
		strContent=re.Replace(strContent,"<div class='code'>$2</div>")
			

	'[HTML/] end   
		


		set re=Nothing
		bbcode=strContent
end function
%>